10 FOR Y = 1 TO 3: INPUT "";A$(Y): NEXT : HOME : FOR Y = 1 TO 3: VTAB 10 +Y: HTAB (42 - LEN(A$(Y)))/2: PRINT A$(Y): NEXT : POKE 49167,0: FLASH :A$ = "":B$ = "": FOR X = 1 TO 20:A$ = A$ +"A@":B$ = B$ +"@A": NEXT : FOR R = 0 TO 1: VTAB 10: PRINT A$: VTAB 14: PRINT A$: FOR Y = 0 TO 2:A = Y/2 = INT(Y/2): VTAB 11 +Y: HTAB 1
20 PRINT CHR$(65 -A);: HTAB 40: PRINT CHR$(64 +A);: NEXT : CALL -856: VTAB 10: PRINT B$: VTAB 14: PRINT B$: FOR Y = 0 TO 2:A = Y/2 = INT(Y/2): VTAB 11 +Y: HTAB 1: PRINT CHR$(64 +A);: HTAB 40: PRINT CHR$(65 -A);: NEXT : CALL -856:R = PEEK(49152) >128: NEXT R: NORMAL : POKE -16368,0